لقد ارسلت الرسالة الاولي يوم 1/3/2002
ارجو الرد يا جدعان ولا السؤال صعب جدا جدا جدا
اخواني الاعزاء
السلام عليكم ورحمة الله وبركاته
الحمد لله الذي جمعنا بعد طول غياب الفترة الماضية عكفت علي دراسة الفيجول حيث أن المنتدى لا تؤاخذوني لايفي بالغرض في تعلم لغة برمجة حيث أنكم ما شاء الله عمالقة في هذا المجال وأنا مبتدئ _ أين تذهب يا …… بين الملوك _ وقد قمت بالقراءة كثير كثير
ولكن ليس بالكتاب فقط التعليم ولكن يجب أن يكون هناك من يأخذ بيدك حتي من ناحية استشارية فقط في بعض النقاط وجه لوجه أرجوكم تساعدوني فمن كان عنده وقت أن يخصص لي ساعتين كل شهر استشيروا في بعض النقاط الغامضة فله جزيل الشكر
و المعروف وأنا مصري اقيم في السعودية في محافظة جدة في منطقة الروضة وتلبفون العمل 6820458 وأنا اسمي خالد
أسف علي هذه المقدمة الطويلة المهم أنا عندي سؤال هـــو
عندي شاشة بيانات الاصناف طبعا مربوطة بقاعدة بيانات بها جدول للاصناف ولكن المشكلة أن كود البحث لايعمل رغم انني جربته في شاشات اخري وكان يعمل تمام لاأعرف السبب وعلي فكرة هذه الشاشة ضمن شاشة متعددة الوثائق MDI وهذه هي
إجراءات الشاشة كاملة وارجو المساعدة
Private Sub Command1_Click()
Data1.Refresh
Data1.Recordset.MoveLast
Command4.Enabled = True
Command2.Enabled = False
Data1.Recordset.AddNew
T1.SetFocus
End Sub
Private Sub Command2_Click()
p = "سيتم حذف بيانات هذا السجل"
t = "رساله تحذيريه"
MsgBox p, 16, t
Data1.Recordset.Delete
Data1.Refresh
End Sub
Private Sub Command3_Click()
Dim v As Variant
Dim strBKMark As String
v = InputBox("ادخل كود الصنف", "صندوق بحث", 0)
If varAUID = "" Then
Exit Sub
End If
With Me.Data1.Recordset
strBKMark = .Bookmark
.FindFirst "NO=" & v
If .NoMatch = True Then
.Bookmark = strBKMark
MsgBox "لايمكن ايجاد كود الصنف"
End If
End With
End Sub
Private Sub Command4_Click()
If T1 <> "" And T2 <> "" Then
Data1.Recordset.Update
Command2.Enabled = True
Data1.Recordset.AddNew
Else
p = "من فضلك استكمل باقي التعليمات"
t = "تعديل لم يكتمل"
MsgBox p, 16, t
End If
End Sub
Private Sub Form_Load()
Command4.Enabled = False
Top = 1200
Left = 1000
Width = 6500
Height = 3570
Dim db As Database
Dim tt As Recordset
Set db = OpenDatabase("c:my documentsالتمارينInventory")
Set tt = db.OpenRecordset("ITAMS")
If tt.RecordCount <> 0 Then
tt.MoveFirst
Do While Not tt.EOF
List1.AddItem tt.Fields("NAME")
tt.MoveNext
Loop
End If
End Sub
:'( :'( :'( :'(