بارك الله فيك أستاذي العزيز أمير على تقديم يد العون والمساعدة لي ولكل أعضاء المنتدى الطيب
وبالفعل تم الاتصال بنجاح ولكن بعد إعادة فرمتة الجهاز وضبط الإعدادات.
ويبقى عدة أسئلة أتمنى الإجابة عليها :
(قاعدة البيانات أكسس) والكود يقوم بعرض البيانات في جدول MSHFlexGrid1
فكيف أقوم بعرض البيانات في حالة كانت قاعدة البيانات sql server
مثل :
كود :
Private Sub Form_Load()
On Error Resume Next: Err.Clear
Call ConnectionDatabase
If HD.State = adStateOpen Then HD.Close
HD.Open "Select ID,ID_Code,Name_Teacher,Gender,S_Net,Birth_day,Claporte,Tech_Stat,children,Mother,IDnumber" & _
",Card,Pcard,passport,ppassport,S_city,adress,Tech_Tel,Notes From Q_Tech_Table Order BY ID ", dB, adOpenStatic, adLockOptimistic
MSHFlexGrid1.Clear
If HD.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = HD
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
Label00 = HD.RecordCount
MSHFlexgridAlignment
omran_kora_Gn
Call Clear_Text
End Sub
كود الإضافة
كود :
Call Clear_Text
Call LOAD_No_AUTO
Command2.Enabled = True
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command9.Enabled = True
Picture1.Visible = False
Picture3.Visible = True
كود الحفظ + كود التعديل
كود :
On Error Resume Next: Err.Clear
If Trim(txtName.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÇÓã ÇáãæÙÝ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
txtName.SetFocus
Exit Sub
End If
If Trim(CmbGender.Text) = "" Then
MsgBox "ÚÝæÇð... íÌÈ ÅÎÊíÇÑ ÇáÌäÓ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CmbGender.SetFocus
Exit Sub
End If
If Trim(CombNet.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÅÎÊíÇÑ ÇáÌäÓíÉ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CombNet.SetFocus
Exit Sub
End If
If Trim(TextMother.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÇÓã ÇáÃã", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
TextMother.SetFocus
Exit Sub
End If
If Trim(TextIDnumber.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÇáÑÞã ÇáæØäí", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
TextIDnumber.SetFocus
Exit Sub
End If
If Trim(CombClap.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÅÎÊíÇÑ ãßÇä ÇáãíáÇÏ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CombClap.SetFocus
Exit Sub
End If
If Trim(MaskEdBox1.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÊÇÑíÎ ÇáãíáÇÏ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
MaskEdBox1.SetFocus
Exit Sub
End If
If Trim(CombTechStat.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÅÎÊíÇÑ ÇáÍÇáÉ ÇáÇÌÊãÇÚíÉ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CombTechStat.SetFocus
Exit Sub
End If
If Trim(Tchildren.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÚÏÏ ÇáÃÈäÇÁ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Tchildren.SetFocus
Exit Sub
End If
If Trim(TextIDnumber.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÑÞã ÇáÑÞã ÇáæØäí", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
TextIDnumber.SetFocus
Exit Sub
End If
If Trim(TextCard.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÑÞã ÇáÈØÇÞÉ ÇáÔÎÕíÉ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
TextCard.SetFocus
Exit Sub
End If
If Trim(CombPcard.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÅÎÊíÇÑ ãßÇä ÕÏæÑ ÇáÈØÇÞÉ ÇáÔÎÕíÉ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CombPcard.SetFocus
Exit Sub
End If
If Trim(Textpassport.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÑÞã ÌæÇÒ ÇáÓÝÑ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Textpassport.SetFocus
Exit Sub
End If
If Trim(Combppassport.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÅÎÊíÇÑ ãßÇä ÕÏæÑ ÌæÇÒ ÇáÓÝÑ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Combppassport.SetFocus
Exit Sub
End If
If Trim(CombS_city.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÅÎÊíÇÑ ÇáãÍá ÇáÓßä Ãæ ÇáãÏíäÉ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
CombS_city.SetFocus
Exit Sub
End If
If Trim(Textadress.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÇáÚäæÇä", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
Textadress.SetFocus
Exit Sub
End If
If Trim(txtTechTel.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÑÞã ÇáÌæÇá Ãæ ÇáåÇÊÝ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
txtTechTel.SetFocus
Exit Sub
End If
If Trim(TextNotes.Text) = "" Then
MsgBox "ÚÝæÇð ... íÌÈ ÊÚÈÆÉ ÍÞá ÇáãáÇÍÙÜÜÜÇÊ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíå"
TextNotes.SetFocus
Exit Sub
End If
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [Tech_Table] WHERE [Name_Teacher]='" & Trim$(txtName.Text) & "'", dB, adOpenStatic, adLockOptimistic
If RS.RecordCount <> 0 Then
MsgBox "ÊãÊ ÇáÇÖÇÝÉ ÝíãÇ ÓÈÞ", vbExclamation + vbOKOnly + vbMsgBoxRight, "ÇÓÊÚáÇãÇÊ"
Exit Sub
End If
With RS
On Error Resume Next
.AddNew
![ID] = Trim(txtID.Text)
![ID_Code] = Trim(TextCode.Text)
![Name_Teacher] = Trim(txtName.Text)
![Gender] = Trim(CmbGender.Text)
![S_Net] = Trim(CombNet.Text)
![Mother] = Trim(TextMother.Text)
![Birth_day] = Trim(MaskEdBox1.Text)
![Claporte] = Trim(CombClap.Text)
![Tech_Stat] = Trim(CombTechStat.Text)
![Children] = Trim(Tchildren.Text)
![IDnumber] = Trim(TextIDnumber.Text)
![Card] = Trim(TextCard.Text)
![Pcard] = Trim(CombPcard.Text)
![passport] = Trim(Textpassport.Text)
![ppassport] = Trim(Combppassport.Text)
![S_city] = Trim(CombS_city.Text)
![adress] = Trim(Textadress.Text)
![Tech_Tel] = Trim(txtTechTel.Text)
![Notes] = Trim(TextNotes.Text)
'If Not Image1.Picture = Empty Then
'SavePic
'Else
'![Pic] = Null
'End If
If Not Image1.Picture = Empty Then
![path_pic] = Trim(Text1.Text)
Else
![path_pic] = Null
End If
.Update
.Close
End With
MsgBox "ÊãÊ ÇáÚãáíÉ ÈäÌÇÍ", vbInformation + vbOKOnly + vbMsgBoxRight, "ÇÌÑÇÁ ÇáÍÝÙ"
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = True
Call Form_Load
أم أرفق مثال صغير لمعرفة الخطوات الأولى من الإضافة والحفظ والتعديل والحذف والتراجع والبحث والطباعة ... نجاحي هو الذي سوف يدفعني للدخول إلى عالم الدوت نت
